home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / bipl.zip / PROCS.ZIP / FILENAME.ICN < prev    next >
Text File  |  1992-09-28  |  1KB  |  54 lines
  1. ############################################################################
  2. #
  3. #    File:     filename.icn
  4. #
  5. #    Subject:  Procedures to parse file names
  6. #
  7. #    Author:   Robert J. Alexander
  8. #
  9. #    Date:     December 5, 1989
  10. #
  11. ###########################################################################
  12. #
  13. #  suffix() -- Parses a hierarchical file name, returning a 2-element
  14. #  list:  [prefix,suffix].  E.g. suffix("/a/b/c.d") -> ["/a/b/c","d"]
  15. #
  16. #
  17. #  tail() -- Parses a hierarchical file name, returning a 2-element
  18. #  list:  [head,tail].  E.g. tail("/a/b/c.d") -> ["/a/b","c.d"].
  19. #
  20. #  components() -- Parses a hierarchical file name, returning a list of
  21. #  all directory names in the file path, with the file name (tail) as
  22. #  the last element.
  23. #
  24. #  E.g.  components("/a/b/c.d") -> ["/","a","b","c.d"].
  25. #
  26. ############################################################################
  27.  
  28. procedure suffix(s,separator)
  29.    local i
  30.    /separator := "."
  31.    i := *s + 1
  32.    every i := find(separator,s)
  33.    return [s[1:i],s[(*s >= i) + 1:0] | &null]
  34. end
  35.  
  36. procedure tail(s,separator)
  37.    local i
  38.    /separator := "/"
  39.    i := 0
  40.    every i := find(separator,s)
  41.    return [s[1:i + (i <= 1 | 0)],"" ~== s[i + 1:0] | &null]
  42. end
  43.  
  44. procedure components(s,separator)
  45.    local x,head
  46.    /separator := "/"
  47.    x := tail(s,separator)
  48.    return case head := x[1] of {
  49.       separator: [separator]
  50.       "": []
  51.       default: components(head)
  52.       } ||| ([&null ~=== x[2]] | [])
  53. end
  54.